! file name=scmfdp1.h
      real(NBF),pointer,dimension(:,:,:) :: dtl,dtr,dhl,dhr,flcf
!
      common/tcfa/dtl,dtr,dhl,dhr,flcf
